home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / wizrq135.lha / WizReq.rexx < prev   
OS/2 REXX Batch file  |  1995-09-25  |  8KB  |  2 lines
  1. /* WizReq 1.35 By Stefan Wiberg [M6009] ©1995 */
  2. parse arg LineNumber;signal on ERROR;SIGNAL ON ERROR;SIGNAL ON SYNTAX;SIGNAL ON IOERR;SIGNAL ON FAILURE;Version="1.35";author="Stefan Wiberg";DoorName="WizReq";Fido="2:204/454.0";if(~show('l',"mebbsarexx.library"))then;do;if(~addlib("mebbsarexx.library",0,-30,0))then;do;say "Could not open mebbsarexx.library";SIGNAL IOERR;end;end;if(~show('l',"rexxsupport.library"))then;do;if(~addlib("rexxsupport.library",0,-30,0))then;do;say "Could not open rexxsupport.library!";SIGNAL IOERR;end;end;if ~exists("MEBBSNET:CONFIGFILES/WizReq.CFG") then;do;Call Message DoorName,LineNumber,"The configuration file for WizReq was not found, exiting...",1;CALL message doorname,linenumber,' ',1;CALL message doorname,linenumber,'Please tell the sysop that he forget ',1;CALL message doorname,linenumber,'to install the wizreq.cfg file.... ',1;CALL message doorname,linenumber,' ',1;Call Prompt DoorName,LineNumber,'Press Return',1;signal QUICKEXIT;end;call open(file,"MEBBSNET:CONFIGFILES/WizReq.CFG",'r');save=readln(file);bbsname=readln(file);call close(file);Call GetVar DoorName,LineNumber,1;username=result;username=upper(username);rname=space(username,1,'_');fname1="doors:wizreq/ReqHeader.Txt";fname2="doors:wizreq/Sep.txt";fname3="doors:wizreq/ReqMain.txt";fname4="doors:wizreq/Flash.txt";ReqMainFile="Doors:wizreq/ReqDataFile";Error3='------------------------------------------------------------------------------';call GetVar DoorName,LineNumber,8;IF result ~<'1' THEN;DO;CLS='H';RED='';GRN='';GREEN='';Req3='';Req4='';YEL='';BLU='';VIO='';WHT='';BLA2='';RED2='';GRN2='';YEL2='';BLU2='';RESET='';CYAN='';BLUEY='';RESET='';end;ELSE;DO;CLS='H';RED='';GRN='';GREEN='';YEL='';BLU='';VIO='';WHT='';BLA2='';RED2='';GRN2='';YEL2='';BLU2='';RESET='';CYAN='';Req3='';Req4='';BLUEY='';RESET='';END;ENTER:;Call Message DoorName,LineNumber,cls'',1;Call Message DoorName,LineNumber,'                                                             ',1;Call Message DoorName,LineNumber,'                               WizReq' version,1;Call Message DoorName,LineNumber,'                  Make a Request of something in 'bbsname,1;Call Message DoorName,LineNumber,'                                                             ',1;Call Message DoorName,LineNumber,'                           (R) Read Requests                 ',1;Call Message DoorName,LineNumber,'                           (E) Enter Request                 ',1;Call Message DoorName,LineNumber,'                           (Q) Quit this Door                ',1;Call Message DoorName,LineNumber,'                                                             ',1;Call Message DoorName,LineNumber,'                          By Stefan Wiberg [M6009]           ',1;Call Message DoorName,LineNumber,'                                   © 1995                    ',1;Call Message DoorName,LineNumber,'                                                             ',1;Call Message DoorName,LineNumber,'                                                             ',1;Call Message DoorName,LineNumber,'',1;Call HotKey DoorName,LineNumber,grn'Your wish is my command >';choice=upper(result);if choice='R' then Call REQ;if choice='E' then Call WRITEREQ;if choice='Q' then call GETOUT;Call enter;REQ:;Call message doorname,linenumber,CLS'',1;Call message doorname,linenumber,'Searching for requests...',1;address command 'wait 1';Call message doorname,linenumber,'',1;Call ReadFile DoorName,LineNumber,fname1;Call message DoorName,LineNumber,wht,1;Call readfile DoorName,LineNumber,ReqMainFile;Call message doorname,linenumber,'',1;Call Message DoorName,LineNumber,'',1;Call HotKey DoorName,LineNumber,blu2||"This is the end of the Request's.";Call enter;WRITEREQ:;wpath="doors:wizreq/ReqDataFile";Call ReadFile DoorName,LineNumber,fname1;Call open Req,(wpath),'A';Call Message DoorName,LineNumber,"",1;Call Message DoorName,LineNumber,"",1;Call Message DoorName,LineNumber,BLUEY"Enter your Request (1 lines):"reset,1;Call Message DoorName,LineNumber,wht"",1;Call Prompt DoorName,LineNumber,">",60;Req1=result;if Req1='NULL' then call ENTER;Call Message DoorName,LineNumber,"",1;Call Message DoorName,LineNumber,cyan"Are you sure you want to Request that?   (Y/N)?",1;Call HotKey DoorName,LineNumber,"";option=upper(result);if option ~='Y' then Call enter;Call writeln Req,Req4||username;Call writeln Req,Req3||Req1;Call close Req;Call Message DoorName,LineNumber,"",1;Call HotKey DoorName,LineNumber,YEL"Trash your Keyboard with a hammer :)";Call enter;OUT:;call message doorname,linenumber,string,1;return;RETURNC:;CALL message doorname,linenumber,' ',1;string="Press any key to continue....";call getkey;CALL message doorname,linenumber,' ',1;RETURN;OUTPUT:;call message doorname,linenumber,string,1;return;GETKEY:;call hotkey doorname,linenumber,string;hot=result;call carrier;return;GETOUT:;Call Message DoorName,LineNumber,reset"",1;Call Blank;string=red"         You've been using "GRN||Version||red" of "blu||doorname||RESET" by "BLUEY||author||RESET".";call output;call blank;string="Thank you, "||username||", please press [RETURN] or [ENTER].";call getkey;call blank;call Exit_Door DoorName,LineNumber;exit 0;BLANK:;string=" ";Call output;return;Carrier:;Call CDetect doorname,linenumber;cd=upper(result);if cd="NO CARRIER!" then signal error;return;Call message doorname,linenumber,"",1;ERROR:;line=sigl;code=RC;CALL message doorname,linenumber,' ',1;Call Message DoorName,LineNumber,'*BOOOOM*  Got an error.  PLEASE notify the sysop.',1;Call Message DoorName,LineNumber,'Line:' LINE '   Severity:' CODE,1;CALL message doorname,linenumber,' ',1;Call Message DoorName,LineNumber,'PLEASE write down the TYPE of ERROR and the LINE # and',1;Call Message DoorName,LineNumber,'leave the SYSOP a message so he may get it corrected.',1;call returnc;if exists(SAVE"WizReq_Errorlog") then;do;call open(errorfile,SAVE"WizReq_Errorlog","A");call writeln(errorfile,"While "username" was using "doorname" this error occured:");call writeln(errorfile,"*Error*  Line: "SIGL" SEVERITY: "CODE);call ertext;end;else;do;call open(errorfile,SAVE"WizReq_Errorlog","W");call writeln(errorfile,"While "name" was using "doorname" this error occured:");call writeln(errorfile,"*Error*  Line: "SIGL" SEVERITY: "CODE);call ertext;end;signal quickexit;IOERR:;line=sigl;code=rc;CALL message doorname,linenumber,' ',1;Call Message DoorName,LineNumber,'*BOOOOM*  Got an IO error.  PLEASE notify the sysop.',1;Call Message DoorName,LineNumber,'Line:' LINE '   Severity:' CODE,1;CALL message doorname,linenumber,' ',1;Call Message DoorName,LineNumber,'PLEASE write down the TYPE of ERROR and the LINE # and',1;Call Message DoorName,LineNumber,'leave the SYSOP a message so he may get it corrected.',1;call returnc;if exists(SAVE"WizReq_Errorlog") then;do;call open(errorfile,SAVE"WizReq_Errorlog","A");call writeln(errorfile,"While "username" was using "doorname" this error occured:");call writeln(errorfile,"*Error*  Line: "LINE" SEVERITY: "CODE);call ertext;end;else;do;call open(errorfile,SAVE"WizReq_Errorlog","W");call writeln(errorfile,"While "username" was using "doorname" this error occured:");call writeln(errorfile,"*Error*  Line: "LINE" SEVERITY: "CODE);call ertext;end;signal quickexit;FAILURE:;CALL message doorname,linenumber,"",1;CALL message doorname,linenumber,"**BOOOOOM** Something did go wrong!",1;Line=SIGL;Code=RC;CALL message doorname,linenumber,"Line: "Line "Error: "Code,1;CALL message doorname,linenumber,ERRORTEXT(Code),1;CALL hotkey doorname,linenumber,"Press Return";CALL exit_door DoorName,LineNumber;exit 10;ERTEXT:;call writeln(errorfile,Error3);call writeln(errorfile,"Please report this to the AUTHOR, "author" A.S.A.P so it may");call writeln(errorfile,"be corrected! You may DELETE this file as soon as you send it");call writeln(errorfile,"to the AUTHOR, ("author" "fido").");call writeln(errorfile,Error3);call close(errorfile);return;QUICKEXIT:;call Exit_Door DoorName,LineNumber;exit 0